# name : dplyr sapply in mutate (rowwise summarise), if col is a list
# key : mutate.sapply@dplyr
# contributor: Shuguang Sun
# --
${1:dfout} <- ${2:dfin} |>
  mutate(${3:name} = sapply(${4:list(col)}, ${5:func}))